Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/wds/nc_find2.geo/00016.ls

Text File | 1997-03-19 | 7.6 KB | 319 lines

on init
  set_find2MaxLines(8)
  set_find2WhichText(field "ALL_DATA")
  set_find2FieldScroll(the number of cast "currScroll")
  set_find2NumOflines(the number of lines in get_find2WhichText())
  set the textHeight of field get_find2FieldScroll() to 14
  set_find2SliderSprite(10)
  set_find2ThumbSprite(13)
  set_find2CurrPlace(0)
  set_find2ConstraintSprite(15)
  set_find2DisableSprite(17)
  set_find2HiliteSprite(19)
  set_find2SizeOfLine(14)
  set_find2TopField(the top of sprite 16)
  set_find2SelectedLine(1)
  puppetSprite(get_find2HiliteSprite(), 1)
  puppetSprite(get_find2ThumbSprite(), 1)
  set the immediate of sprite get_find2ThumbSprite() to 1
  set_find2SliderHeight(the height of sprite get_find2ConstraintSprite())
  set_find2Options(get_find2NumOflines() - get_find2MaxLines())
  set the visible of sprite get_find2DisableSprite() to not (get_find2Options() > 0)
  if get_find2Options() > 0 then
    set the cursor of sprite 10 to [404, 405]
    set the cursor of sprite 11 to [404, 405]
    set the cursor of sprite 12 to [404, 405]
  else
    set the cursor of sprite 10 to [400, 401]
    set the cursor of sprite 11 to [400, 401]
    set the cursor of sprite 12 to [400, 401]
  end if
  if get_find2Options() > 0 then
    set_find2Increment(1.0 * get_find2SliderHeight() / get_find2Options())
  end if
  set_find2TopLoc(the top of sprite get_find2ConstraintSprite())
  PlaceSlider()
end

on ChooseLine
  global cardlist, find2Links
  set TopLoc to get_find2TopField()
  set VerticalLoc to getAt(the clickLoc, 2)
  set NumOfline to (VerticalLoc - TopLoc) / get_find2SizeOfLine()
  if (NumOfline + 1) <= get_find2NumOflines() then
    set newLoc to (NumOfline * get_find2SizeOfLine()) + TopLoc
    set the locV of sprite get_find2HiliteSprite() to newLoc
    set_find2SelectedLine(get_find2CurrPlace() + NumOfline + 1)
    updateStage()
  end if
end

on UpdateHilight
  if (get_find2SelectedLine() <> EMPTY) and (get_find2SelectedLine() > get_find2CurrPlace()) and ((get_find2SelectedLine() - 1) < (get_find2CurrPlace() + get_find2MaxLines())) then
    set TopLoc to get_find2TopField()
    set newLoc to ((get_find2SelectedLine() - get_find2CurrPlace() - 1) * get_find2SizeOfLine()) + TopLoc
    set the locV of sprite get_find2HiliteSprite() to newLoc
  else
    set the locV of sprite get_find2HiliteSprite() to 999
  end if
  updateStage()
end

on SliderActive
  repeat while the stillDown
    if rollOver(16) then
      set newV to constrainV(get_find2ConstraintSprite(), mouseV())
      set the locV of sprite get_find2ThumbSprite() to newV
      set newValue to integer((newV - get_find2TopLoc()) / get_find2Increment())
      set_find2CurrPlace(newValue)
      UpdateHilight()
      put line get_find2CurrPlace() + 1 to get_find2CurrPlace() + get_find2MaxLines() of get_find2WhichText() into field get_find2FieldScroll()
    end if
  end repeat
end

on PlaceMySlider
  put line 1 to 16 of get_find2WhichText() into field "currScroll"
end

on PlaceSlider
  set currentValue to get_find2CurrPlace()
  if get_find2Options() > 0 then
    set newPlace to get_find2TopLoc() + integer(get_find2Increment() * currentValue)
    set the locV of sprite get_find2ThumbSprite() to newPlace
    updateStage()
  end if
  UpdateHilight()
  put line get_find2CurrPlace() + 1 to get_find2CurrPlace() + get_find2MaxLines() of get_find2WhichText() into field get_find2FieldScroll()
end

on ClickSlider toSub
  if not toSub then
    set_find2CurrPlace(get_find2CurrPlace() - get_find2MaxLines() + 1)
  else
    set_find2CurrPlace(get_find2CurrPlace() + get_find2MaxLines() - 1)
  end if
  if get_find2CurrPlace() < 0 then
    set_find2CurrPlace(0)
  else
    if (get_find2CurrPlace() + get_find2MaxLines()) > get_find2NumOflines() then
      set_find2CurrPlace(get_find2NumOflines() - get_find2MaxLines())
    end if
  end if
  PlaceSlider()
end

on handleUP
  set_find2StepMeter("decrease")
end

on handleDown
  set_find2StepMeter("increase")
end

on set_find2StepMeter direction
  set currentValue to get_find2CurrPlace()
  if (direction = "increase") and (currentValue <> get_find2Options()) then
    set_find2CurrPlace(currentValue + 1)
  else
    if (direction = "decrease") and (currentValue <> 0) then
      set_find2CurrPlace(currentValue - 1)
    end if
  end if
  PlaceSlider()
end

on ClickScroll spriteNum, castDown, macroName
  set flag to 0
  set SaveCast to the castNum of sprite spriteNum
  set flag to swapScroll(spriteNum, SaveCast, castDown)
  repeat while the stillDown
    set flag to swapScroll(spriteNum, SaveCast, castDown)
    if flag = 1 then
      do(macroName)
    end if
  end repeat
end

on swapScroll spriteNum, SaveCast, castDown
  if rollOver(spriteNum) then
    set the castNum of sprite spriteNum to the number of cast castDown
    updateStage()
    return 1
  else
    set the castNum of sprite spriteNum to the number of cast SaveCast
    updateStage()
    return 0
  end if
end

on set_find2SliderSprite int
  global find2SliderSprite
  set find2SliderSprite to int
end

on get_find2SliderSprite
  global find2SliderSprite
  return find2SliderSprite
end

on set_find2ThumbSprite int
  global find2ThumbSprite
  set find2ThumbSprite to int
end

on get_find2ThumbSprite
  global find2ThumbSprite
  return find2ThumbSprite
end

on set_find2CurrPlace int
  global find2CurrPlace
  set find2CurrPlace to int
end

on get_find2CurrPlace
  global find2CurrPlace
  return find2CurrPlace
end

on set_find2SliderHeight int
  global find2SliderHeight
  set find2SliderHeight to int
end

on get_find2SliderHeight
  global find2SliderHeight
  return find2SliderHeight
end

on set_find2Increment int
  global find2Increment
  set find2Increment to int
end

on get_find2Increment
  global find2Increment
  return find2Increment
end

on set_find2TopLoc int
  global find2TopLoc
  set find2TopLoc to int
end

on get_find2TopLoc
  global find2TopLoc
  return find2TopLoc
end

on set_find2Options int
  global find2Options
  set find2Options to int
end

on get_find2Options
  global find2Options
  return find2Options
end

on set_find2MaxLines int
  global find2MaxLines
  set find2MaxLines to int
end

on get_find2MaxLines
  global find2MaxLines
  return find2MaxLines
end

on set_find2WhichText str
  global find2WhichText
  set find2WhichText to str
end

on get_find2WhichText
  global find2WhichText
  return find2WhichText
end

on set_find2FieldScroll int
  global find2FieldScroll
  set find2FieldScroll to int
end

on get_find2FieldScroll
  global find2FieldScroll
  return find2FieldScroll
end

on set_find2NumOflines int
  global find2NumOflines
  set find2NumOflines to int
end

on get_find2NumOflines
  global find2NumOflines
  return find2NumOflines
end

on set_find2ConstraintSprite int
  global find2ConstraintSprite
  set find2ConstraintSprite to int
end

on get_find2ConstraintSprite
  global find2ConstraintSprite
  return find2ConstraintSprite
end

on set_find2DisableSprite int
  global find2DisableSprite
  set find2DisableSprite to int
end

on get_find2DisableSprite
  global find2DisableSprite
  return find2DisableSprite
end

on set_find2HiliteSprite int
  global find2HiliteSprite
  set find2HiliteSprite to int
end

on get_find2HiliteSprite
  global find2HiliteSprite
  return find2HiliteSprite
end

on set_find2SizeOfLine int
  global find2SizeOfLine
  set find2SizeOfLine to int
end

on get_find2SizeOfLine
  global find2SizeOfLine
  return find2SizeOfLine
end

on set_find2SelectedLine int
  global find2SelectedLine
  set find2SelectedLine to int
end

on get_find2SelectedLine
  global find2SelectedLine
  return find2SelectedLine
end

on set_find2TopField int
  global find2TopField
  set find2TopField to int
end

on get_find2TopField
  global find2TopField
  return find2TopField
end